home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl-install / installcl < prev    next >
Encoding:
Text File  |  1995-11-28  |  3.5 KB  |  171 lines
  1. ;
  2. ; Installer-Script Connectline
  3. ;
  4. ; $VER: Connectline-Install 2.0 (05.11.95)
  5. ;
  6.  
  7. (set #clexists
  8. (cat    "Connectline ist bereits auf Ihrem System installiert.\n\n"
  9.         "Möchten Sie die bestehende Installation Updaten oder "
  10.         "Connectline komplett neu installieren?\n\n"
  11.         "ACHTUNG!\n\n"
  12.         "Bei einer Neuinstallation gehen Ihre bestehenden Daten "
  13.         "komplett verloren, wenn Sie Connectline in demselben "
  14.         "Verzeichnis wie die alte Version installieren!"
  15. ))
  16.  
  17. (set #install-hd-msg
  18. (cat    "Wohin soll das Connectline-Verzeichnis "
  19.         "installiert werden?"
  20. ))
  21.  
  22. (set #install-hd-help
  23. (cat    "\nHier müssen Sie angeben, wo auf Ihrer "
  24.         "Festplatte das Connectline-Verzeichnis installiert werden "
  25.         "soll.\n\n"
  26.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  27.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  28.         "Namen \"Connectline\".\n\n"
  29. ))
  30.  
  31. (set #copying-setpatch
  32. (cat    "Fnr den ordnungsgemäßen Betrieb von Connectline ist "
  33.         "die Installation von SetPatch 40.16 notwendig."
  34. ))
  35.  
  36. (set #autostart
  37. (cat    "Soll Connectline beim Booten des Systems automatisch gestartet werden?"
  38. ))
  39.  
  40. (set #autostart-help
  41. (cat    "Es wird in die Datei \"S:User-Startup\" ein Assign \"CONNECTLINE:\" und das Kommando \"RUN >NIL: Connectline:CL eingefügt."
  42. ))
  43.  
  44. (set #autostart-norun
  45. (cat    "Es wird in die Datei \"S:User-Startup\" ein Assign \"CONNECTLINE:\" eingefügt."
  46. ))
  47.  
  48. (set #conv_pmbs
  49. (cat    "Möchten Sie die Daten Ihrer Prometheus-Installation konvertieren? \n"
  50.         "Die alten Datensätze bleiben bei der Konvertierung erhalten."
  51. ))
  52.  
  53.  
  54. (procedure copy-setpatch
  55.     (copylib
  56.         (prompt #copying-setpatch)
  57.         (help @copylib-help)
  58.         (source "installstuff/SetPatch")
  59.         (dest "C:")
  60.         (confirm)
  61.     )
  62. )
  63.  
  64. (procedure askcldir
  65.     (if (exists ("CONNECTLINE:" ) )
  66.         (if (askbool
  67.                 (prompt #clexists)
  68.                 (help #clexists)
  69.                 (default 0)
  70.                 (choices "Update" "Neuinstallation" )
  71.             )
  72.             (set update_mode 1)
  73.         )
  74.     )
  75.     (if (= 0 update_mode )
  76.         (
  77.             (set default-dest
  78.                 (askdir
  79.                     (prompt #install-hd-msg)
  80.                     (help #install-hd-help)
  81.                     (default @default-dest)
  82.                 )
  83.             )
  84.             (set @default-dest
  85.                 (tackon default-dest "Connectline")
  86.             )
  87.             (makedir @default-dest
  88.                 (infos)
  89.             )
  90.         )
  91.         (set @default-dest "Connectline:")
  92.     )
  93. )
  94.  
  95. (procedure copycl
  96.     (copyfiles
  97.         (source "Connectline/")
  98.         (dest @default-dest)
  99.         (pattern "~(Prefs|Online|Log)")
  100.         (prompt "Kopiere Connectline-Module" )
  101.         (help @copyfiles-help)
  102.         (confirm)
  103.         (infos)
  104.     )
  105.     (complete 80)
  106.     (if (= 0 update_mode )
  107.         (copyfiles
  108.             (source "Connectline/")
  109.             (dest @default-dest)
  110.             (pattern "(Prefs|Online)")
  111.             (prompt "Kopiere Connectline-Beispielkonfiguration" )
  112.             (help @copyfiles-help)
  113.             (confirm)
  114.             (infos)
  115.         )
  116.     )
  117. )
  118.  
  119. (procedure askautostart
  120.     (if (askbool
  121.             (prompt #autostart)
  122.             (help #autostart-help)
  123.             (default 0)
  124.             (choices "Automatisch starten" "Nicht automatisch starten" )
  125.         )
  126.         (startup "Connectline" 
  127.             (prompt #autostart-help)
  128.             (help #autostart-help)
  129.             (command ("Assign Connectline: \"%s\"\nRun >NIL: Connectline:CL" @default-dest ) ) 
  130.         )
  131.         (startup "Connectline"
  132.             (prompt #autostart-norun)
  133.             (help #autostart-help)
  134.             (command ("Assign Connectline: \"%s\"" @default-dest ) )
  135.         )
  136.     )
  137. )
  138.  
  139. (procedure checkprometheus
  140.     (if (exists ("PROMETHEUS:" ) )
  141.         (if (askbool
  142.                 (prompt #conv_pmbs)
  143.                 (help #conv_pmbs)
  144.                 (default 0)
  145.                 (choices "Konvertieren" "Nicht konvertieren" )
  146.             )
  147.         )
  148.         (
  149.             (makeassign "Connectline" @default-dir)
  150.             (run "installstuff/pmbs2cl")
  151.         )
  152.     )
  153. )
  154.  
  155.  
  156. ;
  157. ;
  158. ; GO!
  159. ;
  160. ;
  161.  
  162. (complete 0)
  163. (askcldir)
  164. (complete 1)
  165. (copycl)
  166. (complete 85)
  167. (askautostart)
  168. (complete 90)
  169. (copy-setpatch)
  170. (complete 100)
  171.